home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / _pennelli < prev    next >
Text File  |  1996-07-08  |  5KB  |  209 lines
  1. /*
  2. ** Pennelli 1.0 -------- 25-9-1994
  3. **
  4. ** Tipi di pittura con riscalatura
  5. ** automatica della tela.
  6. **
  7. ** Richiede ADPro 2.5
  8. */
  9.  
  10. address command
  11. rxset SLEEP '`requestchoice "TIPI DI PITTURA" "SCEGLI LA TECNICA" "Olio" "BrushS" "BrushM" "BrushL" "WaterC" "Affresco" "Monet" "EXIT"`'
  12.    tx = getclip('SLEEP')
  13.  
  14. ADDRESS "ADPro"
  15. OPTIONS RESULTS
  16.   TRUE  = 1
  17.   FALSE = 0
  18. XSIZE
  19.   BASE = ADPRO_RESULT
  20. YSIZE
  21.   ALTEZZA = ADPRO_RESULT
  22.  
  23.    IF tx = 1  THEN CALL Olio
  24.    IF tx = 2  THEN CALL BrushS
  25.    IF tx = 3  THEN CALL BrushM
  26.    IF tx = 4  THEN CALL BrushL
  27.    IF tx = 5  THEN CALL WaterC
  28.    IF tx = 6  THEN CALL Affresco
  29.    IF tx = 7  THEN CALL Monet
  30.    IF tx = 0  THEN EXIT
  31.  
  32.  OKAY2 "Vuoi utilizzare una tela di fondo?"
  33.  IF (RC ~= 0) THEN
  34.    CALL TELA
  35.  ELSE
  36.    EXIT
  37. EXIT
  38.  
  39. Olio:
  40. BRIGHTNESS (-5)
  41. CONTRAST 3
  42. OPERATOR Apply_Map
  43.    OPERATOR "Mosaic" XSIZE 3 YSIZE 3
  44.  OPERATOR "Dynamic_Range" 2 18
  45.  OPERATOR "Dynamic_Range" 0 255
  46.   OPERATOR "DISPLACE_PIXEL" 1 50 2547
  47. OPERATOR "MEDIAN_FILTER" 1
  48.   OPERATOR "DISPLACE_PIXEL" 1 100 8745
  49.   OPERATOR "DISPLACE_PIXEL" 1 90 14745
  50. OPERATOR "BLUR" 0 1
  51. OPERATOR "MEDIAN_FILTER" 0
  52. RETURN
  53.  
  54. BrushS:
  55. TempConv = "T:TempConv"
  56.   OPERATOR "CONVOLVE" "ADPRO:Convolutions/Speckle" 100 0
  57. IF (RC ~= 0) THEN DO
  58.      ADPRO_TO_FRONT
  59.      OKAY1 "Manca il CONVOLVE richiesto nella directory CONVOLUTIONS"
  60.    EXIT
  61. END
  62.   OPERATOR Dynamic_Range 0 10
  63.   OPERATOR Dynamic_Range 0 250
  64.   OPERATOR Displace_Pixel 1 50 36751
  65.  DO 3
  66. SAVER "IFF" TempConv "RAW"
  67. LOADER "UNIVERSAL" TempConv 4 (-4) 80
  68. LOADER "UNIVERSAL" TempConv 3 (-3) 75
  69. LOADER "UNIVERSAL" TempConv 2 (-2) 70
  70. LOADER "UNIVERSAL" TempConv 1 (-1) 65
  71. LOADER "UNIVERSAL" TempConv (-2) 2 55
  72. LOADER "UNIVERSAL" TempConv (-3) 3 50
  73. LOADER "UNIVERSAL" TempConv (-4) 4 45
  74.  END
  75. OPERATOR "Crop_Image" (BASE -12) (ALTEZZA -12) 0 11
  76.   ABS_SCALE (BASE) (ALTEZZA)
  77. OPERATOR Median_Filter 0
  78.   ADDRESS COMMAND "Delete >NIL:" TempConv
  79. RETURN
  80.  
  81. BrushM:
  82.  TempConv = "T:TempConv"
  83.   OPERATOR "CONVOLVE" "ADPRO:Convolutions/WoodCut" 100 0
  84. IF (RC ~= 0) THEN DO
  85.     ADPRO_TO_FRONT
  86.      OKAY1 "Manca il CONVOLVE richiesto nella directory CONVOLUTIONS"
  87.    EXIT
  88. END
  89.  OPERATOR Dynamic_Range 0 16
  90.  OPERATOR Dynamic_Range 0 255
  91.  OPERATOR Mosaic XSIZE 4 YSIZE 4
  92.   OPERATOR Displace_Pixel 2 100 13675
  93.  DO 2
  94. SAVER "IFF" TempConv "RAW"
  95. LOADER "UNIVERSAL" TempConv 6 (-6) 80
  96. LOADER "UNIVERSAL" TempConv 4 (-4) 75
  97. LOADER "UNIVERSAL" TempConv 2 (-2) 70
  98. LOADER "UNIVERSAL" TempConv 1 (-1) 65
  99. LOADER "UNIVERSAL" TempConv (-2) 2 55
  100. LOADER "UNIVERSAL" TempConv (-4) 4 50
  101. LOADER "UNIVERSAL" TempConv (-6) 6 45
  102.  END
  103. OPERATOR "Crop_Image" (BASE -10) (ALTEZZA -10) 0 9
  104.   ABS_SCALE (BASE) (ALTEZZA)
  105. OPERATOR Median_Filter 20
  106.   ADDRESS COMMAND "Delete >NIL:" TempConv
  107. RETURN
  108.  
  109. BrushL:
  110.  TempConv = "T:TempConv"
  111. OPERATOR "Halve"
  112.   OPERATOR Displace_Pixel 1 100 3675
  113.  DO 2
  114. SAVER "IFF" TempConv "RAW"
  115. LOADER "UNIVERSAL" TempConv 5 (-5) 80
  116. LOADER "UNIVERSAL" TempConv 4 (-4) 75
  117. LOADER "UNIVERSAL" TempConv 3 (-3) 70
  118. LOADER "UNIVERSAL" TempConv 2 (-2) 65
  119. LOADER "UNIVERSAL" TempConv (-3) 3 55
  120. LOADER "UNIVERSAL" TempConv (-4) 4 50
  121. LOADER "UNIVERSAL" TempConv (-5) 5 45
  122.  END
  123. XSIZE
  124.   BASb = ADPRO_RESULT
  125. YSIZE
  126.   ALTEZZb = ADPRO_RESULT
  127. OPERATOR "Crop_Image" (BASb -10) (ALTEZZb -10) 0 9
  128.   ABS_SCALE (BASE) (ALTEZZA)
  129.    OPERATOR "Displace_Pixel" 1 90 15875
  130. OPERATOR Median_Filter 7
  131.   ADDRESS COMMAND "Delete >NIL:" TempConv
  132. RETURN
  133.  
  134. WaterC:
  135.  CONTRAST 6
  136.  BRIGHTNES 13
  137.  OPERATOR "APPLY_MAP"
  138. OPERATOR "Displace_Pixel" 2 100 2589
  139.  OPERATOR "Dynamic_Range" 4 26
  140.  OPERATOR "Dynamic_Range" 1 255
  141. OPERATOR "Median_Filter" 0
  142. OPERATOR "Displace_Pixel" 1 100 1258
  143. OPERATOR "Median_Filter" 0
  144. RETURN
  145.  
  146. Affresco:
  147. OPERATOR "DYNAMIC_RANGE" 0 20
  148. OPERATOR "DYNAMIC_RANGE" 0 255
  149.    OPERATOR "DISPLACE_PIXEL" 2 100 98456
  150. OPERATOR "CONVOLVE" "ADPRO:Convolutions/Woodcut" 80 0
  151.   IF (RC ~= 0) THEN DO
  152.     ADPRO_TO_FRONT
  153.      OKAY1 "Manca il CONVOLVE richiesto nella directory CONVOLUTIONS"
  154.    EXIT
  155. END
  156.   BRIGHTNESS (-3)
  157.   OPERATOR Apply_Map
  158.     OPERATOR "Blur" 0 0
  159.     OPERATOR "Median_Filter" 0
  160. RETURN
  161.  
  162. Monet:
  163. OPERATOR "DYNAMIC_RANGE" 0 9
  164. OPERATOR "DYNAMIC_RANGE" 0 255
  165.   OPERATOR "DISPLACE_PIXEL" 1 100 98456
  166. OPERATOR "CONVOLVE" "ADPRO:Convolutions/R_To_L_Diagonal" 100 0
  167.  IF (RC ~= 0) THEN DO
  168.   ADPRO_TO_FRONT
  169.    OKAY1 "Manca il CONVOLVE richiesto nella directory CONVOLUTIONS"
  170. END
  171.  OPERATOR "DISPLACE_PIXEL" 2 90 2589
  172.   BRIGHTNESS (-3)
  173.   OPERATOR Apply_Map
  174. OPERATOR "SATURATION" "YUV" 33
  175.   OPERATOR "Median_Filter" 0
  176. OPERATOR "CONVOLVE" "ADPRO:Convolutions/Gaussian" 100 0
  177.  IF (RC ~= 0) THEN DO
  178.   ADPRO_TO_FRONT
  179.    OKAY1 "Manca il CONVOLVE richiesto nella directory CONVOLUTIONS"
  180. END
  181.    OPERATOR "Blur" 0 0
  182. RETURN
  183.  
  184. TELA:
  185. SAVER "IFF" DISEGNO "RAW"
  186.  GETFILE '"Scegli LA TELA e premi OK"'
  187.    IF RC ~= 0 THEN EXIT
  188.    else DO
  189.    TELA = ADPRO_RESULT
  190.    LOADER "UNIVERSAL" (TELA)
  191. XSIZE
  192.   BASEC = ADPRO_RESULT
  193. YSIZE
  194.   ALTEZZAC = ADPRO_RESULT
  195. IF (BASE ~= BASEC) | (ALTEZZA ~= ALTEZZAC)
  196.  THEN ABS_SCALE (BASE) (ALTEZZA)
  197. IMAGE_TYPE
  198.   ImageType = ADPRO_RESULT
  199.   IF ImageType = (COLOR BITPLANE) THEN
  200.     OPERATOR "RENDERED_TO_RAW"
  201.   IF ImageType = (GRAY BITPLANE) THEN
  202.     OPERATOR "GRAY_TO_COLOR"
  203.   IF ImageType = (GRAY) THEN
  204.     OPERATOR "GRAY_TO_COLOR"
  205.  LOADER "IFF" DISEGNO COMPOFFSET 0 0 80
  206.  ADDRESS COMMAND "Delete >NIL:" DISEGNO
  207. RETURN
  208.  
  209.